Imports WindowsApplication1
Public Class CriterioCompDocImporte
    Implements IComparer

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Return CType(x, Documento).monto - CType(y, Documento).monto
    End Function
End Class
